home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aspgue1a / default.asp < prev    next >
Text File  |  1999-09-22  |  5KB  |  157 lines
  1. <html>
  2. <head>
  3. <title>Kathi's Guestbook</title>
  4. <meta http-equiv="expires" content="0">
  5. <style>
  6. <!--
  7.     a:link, a:visited {color:#C5BE60; font-weight:bold;}
  8.     a:active {color=yellow; background: firebrick; font-size: 100%; font-weight:bold;}
  9.     a:hover {color:yellow; font-weight:bold;}
  10. //-->
  11. </style>
  12. <!-- scripting , html copyright 1998 Kathi O'Shea ------->
  13. <!-- email info@web-savant for custom web development --->
  14. <!-- see readme.txt in zip file for modification and ---->
  15. <!-- redistribution info -------------------------------->
  16. </head>
  17. <body bgcolor="black" text="#C5BE60" topmargin=0 leftmargin=0>
  18. <center>
  19. <font face="times new roman">
  20. <h1><i>Kathi's Guestbook</i></h1><p> 
  21. </font>
  22. <% PageNo = request("page")
  23. If PageNo="" then
  24. %>
  25. <font face="arial" size=3>
  26. <a href="sign.asp">Sign the Guestbook</a>      
  27. <a href="<%= Request.ServerVariables("HTTP_REFERER")%>">Back to Referring Page</a>
  28. </font>
  29. <p>
  30. <font face='arial' size=2>Would you like to use this guestbook on your ASP-enabled site?
  31. <br><a href="guestbook.zip">Download the guestbook files</a><p>
  32. <%
  33.     PageNo=1
  34. ElseIf PageNo=1 then
  35. %>
  36. <font face="arial" size=3>
  37. <a href="sign.asp">Sign the Guestbook</a>      
  38. <p>
  39.  
  40. <font face='arial' size=2>Would you like to use this guestbook on your ASP-enabled site?
  41. <br><a href="guestbook.zip">Download the guestbook files</a><p>
  42. <%
  43. Else
  44. %>
  45. <font face="arial" size=3>
  46. <a href="sign.asp">Sign the Guestbook</a>      
  47. <p>
  48.  
  49. <%
  50. End If
  51. set conn = server.createobject("adodb.connection")
  52. DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
  53. ' set the actual path to the guestbook below - this example
  54. ' assumes that the guestbook is in the web server root
  55. DSNtemp=dsntemp & "DBQ=" & server.mappath("/guestbook.mdb")
  56. conn.Open DSNtemp
  57. sqlstmt = "SELECT * from Guestbook ORDER BY PostDate DESC"
  58. Set rs = Server.CreateObject("ADODB.Recordset")
  59. rs.Open sqlstmt, conn, 3, 3
  60. TotalRecs = rs.recordcount
  61. rs.Pagesize=10
  62. TotalPages = cInt(rs.pagecount)
  63. rs.absolutepage=PageNo
  64. If PageNo = 1 then
  65.     response.write "<br><Font face='arial' size=2>There are " & TotalRecs & " entries in " & TotalPages & " pages</font>"
  66. End If
  67.  
  68.     If rs.eof then
  69.         response.write "<p><br><center><font face='arial'><b>There are no entries in the guestbook.</b>"
  70.         response.write "<br><a href='sign.asp'>Sign the Guestbook</a></font></center>"
  71.           response.end
  72.     End If
  73. x = 0
  74. For x = 1 to 10
  75.     If rs.eof then
  76.         Exit For
  77.     Else
  78.         When = rs("PostDate")
  79.         Name = rs("Name")
  80.         Name = Replace(Name,"''","'")
  81.         City = rs("City")
  82.         State = rs("State")
  83.         Country = rs("Country")
  84.           Email = rs("Email")
  85.           URL = rs("URL")
  86.           If IsEmpty(URL) or URL = "" then
  87.                Link = "no URL given"
  88.          Else
  89.              Link = "<a href='" & URL & "'>" & URL & "</a>"
  90.         End If
  91.         Comments = rs("Comments")
  92.         Comments = replace(Comments, "''", "'")
  93.         Start = rs("PostDate")
  94.    %>
  95. <table width=600 border=0 cellpadding=0 cellspacing=0>
  96.   <tr><td colspan=3><font face="arial" size=2><%= When %></td></tr>
  97.     
  98.   <tr>
  99.     <td colspan=3 bgcolor="#C5BE60"><font face="arial" size=2 color="#000000">
  100.     <b><%= Comments %></b></font>
  101.     </td>
  102.   </tr>
  103.   
  104.   <tr>
  105.     <td width=125 valign="top">
  106.     <font face="arial" size=1>
  107. <%       
  108.         If IsEmpty(Email) or Email="" then
  109.             response.write(Name)
  110.         Else
  111.             response.write "<a href='mailto:" & Email & "'>" & Name & "</a>"
  112.         End If
  113. %>  
  114.     </font>
  115.     </td>
  116.     
  117.     <td width=200 valign="top"><font face="arial" size=1><i><%= City %> 
  118.     <%= State %> <%= Country %></i>
  119.     </td>
  120.     
  121.     <td width=275 align="right" valign="top">
  122.     <font face="arial" size=1><%= Link %>
  123.     </font>
  124.     </td>
  125.   </tr>
  126. </table>  
  127. <br>
  128.   <%
  129.       rs.MoveNext
  130.     End If
  131. Next
  132. response.write "<table width=300 border=0><tr>"
  133. response.write "<td align='center'>"
  134. If PageNo > 1 then
  135.     response.write "<form method='post' action='default.asp'>"
  136.     response.write "<input type='hidden' name='Page' value='" & PageNo-1 & "'>"
  137.     response.write "<font face='arial' size=2>"
  138.     response.write "<input type='submit' value='<< Prev'></form>"
  139. Else
  140.     response.write " "
  141. End If
  142. response.write "</td><td align='center'>"
  143. If NOT rs.eof then
  144.     response.write "<form method='post' action='default.asp'>"
  145.     response.write "<input type='hidden' name='Page' value='" & PageNo+1 & "'>"
  146.     response.write "<font face='arial' size=2>"
  147.     response.write "<input type='submit' value='Next >>'></form>"
  148. Else
  149.     response.write " "
  150. End If
  151. response.write "</td></tr></table>"                 
  152. conn.close
  153. set conn = nothing
  154.   %>
  155. </center>
  156. </body>
  157. </html>